COMMENT ⊗   VALID 00073 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00010 00002	
C00011 00003	{ WRITTEN BY POINTY AT 16:37  23 Aug 1979}NODISPLAY
C00013 00004	{ WRITTEN BY POINTY AT 11:39  24 Aug 1979}QREAD FLAHS.NEW[PNT,MSM]
C00014 00005	{ WRITTEN BY POINTY AT 1:46  26 Aug 1979}MOVE BARM TO BPARK
C00015 00006	{ WRITTEN BY POINTY AT 1:49  26 Aug 1979}QREAD FLASH.NEW
C00016 00007	{ WRITTEN BY POINTY AT 1:52  26 Aug 1979 for ALIAS PPN = MSM
C00017 00008	{ WRITTEN BY POINTY AT 15:26  26 Aug 1979 for ALIAS PPN = MSM
C00018 00009	{ WRITTEN BY POINTY AT 16:29  26 Aug 1979 for ALIAS PPN = MSM
C00019 00010	{ WRITTEN BY POINTY AT 16:32  26 Aug 1979 for ALIAS PPN = MSM
C00020 00011	{ WRITTEN BY POINTY AT 16:37  26 Aug 1979 for ALIAS PPN = MSM
C00021 00012	{ WRITTEN BY POINTY AT 16:41  26 Aug 1979 for ALIAS PPN = MSM
C00023 00013	{ WRITTEN BY POINTY AT 18:46  26 Aug 1979 for ALIAS PPN = MSM
C00024 00014	{ WRITTEN BY POINTY AT 19:11  26 Aug 1979 for ALIAS PPN = MSM
C00026 00015	{ WRITTEN BY POINTY AT 19:37  26 Aug 1979 for ALIAS PPN = MLG
C00027 00016	{ WRITTEN BY POINTY AT 19:44  26 Aug 1979 for ALIAS PPN = MLG
C00030 00017	{ WRITTEN BY POINTY AT 20:10  26 Aug 1979 for ALIAS PPN = MLG
C00032 00018	{ WRITTEN BY POINTY AT 20:44  26 Aug 1979 for ALIAS PPN = MLG
C00033 00019	{ WRITTEN BY POINTY AT 21:05  26 Aug 1979 for ALIAS PPN = MLG
C00035 00020	{ WRITTEN BY POINTY AT 22:35  26 Aug 1979 for ALIAS PPN = MLG
C00036 00021	{ WRITTEN BY POINTY AT 23:18  26 Aug 1979 for ALIAS PPN = MSM
C00037 00022	{ WRITTEN BY POINTY AT 23:21  26 Aug 1979 for ALIAS PPN = MSM
C00038 00023	{ WRITTEN BY POINTY AT 23:42  26 Aug 1979 for ALIAS PPN = MSM
C00039 00024	{ WRITTEN BY POINTY AT 0:49  27 Aug 1979 for ALIAS PPN = MSM
C00040 00025	{ WRITTEN BY POINTY AT 1:01  27 Aug 1979 for ALIAS PPN = MSM
C00041 00026	{ WRITTEN BY POINTY AT 10:03  27 Aug 1979}A←9
C00042 00027	{ WRITTEN BY POINTY AT 13:14  27 Aug 1979 for ALIAS PPN = MSM
C00044 00028	{ WRITTEN BY POINTY AT 16:27  27 Aug 1979 for ALIAS PPN =  HN
C00045 00029	{ WRITTEN BY POINTY AT 16:56  27 Aug 1979 for ALIAS PPN = MSM
C00046 00030	{ WRITTEN BY POINTY AT 21:18  27 Aug 1979 for ALIAS PPN =  HE
C00048 00031	{ WRITTEN BY POINTY AT 22:11  27 Aug 1979 for ALIAS PPN =  HE
C00049 00032	{ WRITTEN BY POINTY AT 22:14  27 Aug 1979 for ALIAS PPN =  HE
C00050 00033	{ WRITTEN BY POINTY AT 23:20  27 Aug 1979 for ALIAS PPN =  HE
C00051 00034	{ WRITTEN BY POINTY AT 23:54  27 Aug 1979 for ALIAS PPN = MSM
C00052 00035	{ WRITTEN BY POINTY AT 0:31  28 Aug 1979 for ALIAS PPN = MSM
C00053 00036	{ WRITTEN BY POINTY AT 11:07  28 Aug 1979 for ALIAS PPN =  HE
C00054 00037	{ WRITTEN BY POINTY AT 11:57  28 Aug 1979 for ALIAS PPN = MSM
C00055 00038	{ WRITTEN BY POINTY AT 13:55  28 Aug 1979 for ALIAS PPN = MSM
C00056 00039	{ WRITTEN BY POINTY AT 14:04  28 Aug 1979 for ALIAS PPN = MSM
C00057 00040	{ WRITTEN BY POINTY AT 14:58  28 Aug 1979 for ALIAS PPN = MSM
C00058 00041	{ WRITTEN BY POINTY AT 9:48  29 Aug 1979 for ALIAS PPN =  HN
C00059 00042	{ WRITTEN BY POINTY AT 10:44  29 Aug 1979 for ALIAS PPN =  HN
C00060 00043	{ WRITTEN BY POINTY AT 11:02  29 Aug 1979 for ALIAS PPN =  HN
C00061 00044	{ WRITTEN BY POINTY AT 11:46  29 Aug 1979 for ALIAS PPN =  HN
C00062 00045	{ WRITTEN BY POINTY AT 13:22  29 Aug 1979 for ALIAS PPN = MSM
C00063 00046	{ WRITTEN BY POINTY AT 13:45  29 Aug 1979 for ALIAS PPN = MSM
C00064 00047	{ WRITTEN BY POINTY AT 15:05  29 Aug 1979 for ALIAS PPN =  HN
C00065 00048	{ WRITTEN BY POINTY AT 15:09  29 Aug 1979 for ALIAS PPN =  HN
C00066 00049	{ WRITTEN BY POINTY AT 15:34  29 Aug 1979 for ALIAS PPN =  HN
C00067 00050	{ WRITTEN BY POINTY AT 16:12  29 Aug 1979 for ALIAS PPN =  HN
C00068 00051	{ WRITTEN BY POINTY AT 17:09  29 Aug 1979 for ALIAS PPN =  HN
C00069 00052	{ WRITTEN BY POINTY AT 17:19  29 Aug 1979 for ALIAS PPN =  HN
C00070 00053	{ WRITTEN BY POINTY AT 17:27  29 Aug 1979 for ALIAS PPN =  HN
C00071 00054	{ WRITTEN BY POINTY AT 17:31  29 Aug 1979 for ALIAS PPN =  HN
C00073 00055	{ WRITTEN BY POINTY AT 17:46  29 Aug 1979 for ALIAS PPN =  HN
C00074 00056	{ WRITTEN BY POINTY AT 20:36  29 Aug 1979 for ALIAS PPN =  HE
C00075 00057	{ WRITTEN BY POINTY AT 20:45  29 Aug 1979 for ALIAS PPN =  HN
C00076 00058	{ WRITTEN BY POINTY AT 21:10  29 Aug 1979 for ALIAS PPN =  HN
C00078 00059	{ WRITTEN BY POINTY AT 21:46  29 Aug 1979 for ALIAS PPN =  HN
C00079 00060	{ WRITTEN BY POINTY AT 22:08  29 Aug 1979 for ALIAS PPN =  HN
C00080 00061	{ WRITTEN BY POINTY AT 22:24  29 Aug 1979 for ALIAS PPN =  HN
C00084 00062	{ WRITTEN BY POINTY AT 23:26  29 Aug 1979 for ALIAS PPN =  HN
C00087 00063	{ WRITTEN BY POINTY AT 13:22  30 Aug 1979 for ALIAS PPN =  HN
C00088 00064	{ WRITTEN BY POINTY AT 13:52  30 Aug 1979 for ALIAS PPN =  HN
C00089 00065	{ WRITTEN BY POINTY AT 14:10  30 Aug 1979 for ALIAS PPN =  HN
C00090 00066	{ WRITTEN BY POINTY AT 14:45  30 Aug 1979 for ALIAS PPN =  HN
C00091 00067	{ WRITTEN BY POINTY AT 15:01  30 Aug 1979 for ALIAS PPN =  HN
C00092 00068	{ WRITTEN BY POINTY AT 15:12  30 Aug 1979 for ALIAS PPN =  HN
C00093 00069	{ WRITTEN BY POINTY AT 15:20  30 Aug 1979 for ALIAS PPN =  HN
C00094 00070	{ WRITTEN BY POINTY AT 16:14  30 Aug 1979 for ALIAS PPN =  HN
C00095 00071	{ WRITTEN BY POINTY AT 16:20  30 Aug 1979 for ALIAS PPN =  HN
C00096 00072	{ WRITTEN BY POINTY AT 19:52  30 Aug 1979 for ALIAS PPN =  HN
C00097 00073	{ WRITTEN BY POINTY AT 20:32  30 Aug 1979 for ALIAS PPN =  HN
C00098 ENDMK
C⊗;
{ WRITTEN BY POINTY AT 16:37  23 Aug 1979}NODISPLAY
A←3
B←4
PHOTO FOO2.TTY[PNT,MSM]
C←3;
DISPLAY SCALARS
A←20;B←30;C←40
PHOTO FOO3.TTY[PNT,MSM]
W←5
PHOTO FOO2.TTY[PNT,MSM]
PHOTO FOO2.TTY[PNT,MSM]
PHOTO FOO2.TTY[PNT,MSM]
D←67
WRITE FOO2.TTY[PNT,MSM]
WRITE INTO FOO2.TTY[PNT,MSM]
WRITE INTO FOO3.TTY[PNT,MSM]
PHOTO FOO2.TTY[PNT,MSM]
PHOTO FOO2.TTY[PNT,MSM]
PHOTO FOO3.TTY[PNT,MSM]
WRITE INTO FOO3.TTY[PNT,MSM]
WRITE INTO FOO2.TTY[PNT,MSM]
A←XCOORD(D)
DEFINE ARM=⊂BARM⊃
DISPLAY MACROS
EEDIT AR
{ continued writing again at 16:55  23 Aug 1979}




A←5
SHOW SCALARS
DISPLAY SCALARS
EXIT
{ continued writing again at 16:56  23 Aug 1979}W←56
EXIT
{ WRITTEN BY POINTY AT 11:39  24 Aug 1979}QREAD FLAHS.NEW[PNT,MSM]
EXIT
{ WRITTEN BY POINTY AT 1:46  26 Aug 1979}MOVE BARM TO BPARK
A←3
RENAME B←A
RENAME C←B
SHOW SCALARS
DISPLAY SCALARS
W←45

EXIT
{ WRITTEN BY POINTY AT 1:49  26 Aug 1979}QREAD FLASH.NEW
EXIT
{ WRITTEN BY POINTY AT 1:52  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}QREAD FLASH.NEW
      EXIT
{ WRITTEN BY POINTY AT 15:26  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
QREAD FLASH.NEW
EXIT
{exiting at 15:30  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=307}
{ WRITTEN BY POINTY AT 16:29  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
SETSTATUS(NOELF)
RESETSTATUS(NOELF)
A←3
DISPLAY SCALARS
SETSTATUS(NOELF,3)
A←3
SETSTATUS(NOELF,0)
{ WRITTEN BY POINTY AT 16:32  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
A←1
NODISPLAY
CASE A OF BEGIN [1] A←3;ELSE A←10 END
SHOW A
CASE A OFBEGIN[1] A←3; ELSE A←10 END
CASE A OF BEGIN[1] A←3; ELSE A←10 END
F←FRAME
(NILROTN,(3,4,5))
SHOW A,F
EXIT
{exiting at 16:36  26 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=29}
{ WRITTEN BY POINTY AT 16:37  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
SETSTATUS(NOELF)
NODISPLAY
A←1
F←FRAME(NILROTN,(3,4,5))
SHOW A,F
RESETSTATUS
;
{ WRITTEN BY POINTY AT 16:41  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
A←1
SETSTATUS(PPCODE)
A←1

NODISPLAY
RESETSTATUS(PPCODE)
A←3
SETSTATUS(LINE)
RESETSTATUS(LINE)
SETSTATUS(NOE;F)
SETSTATUS(NOELF)
RESETSTATUS(NOELF);
A←2
RESETSTATUS(NOELF)
A←1
SETSTATUS(NOELF)
RESETSTATUS(NOELF)
A←2
SHOW A,F
SHOW A
SETSTATUS(NOELF)
A←2
A←←2
A←1←2
A←1+2
A←1→ 2
A←F→ 2
A←A→ 2
A←A+ 2
SETSTATUS(PPCODE)
CASE A OF [0] A←2; [25] A←24 END
CASE A OF BEGIN [0] A←2; [25] A←24 END
RESETSTATUS(PPCODE)
A←3
PHOTO FOO1.PNT
PHOTO " FOO1.PNT"
PHOTO " FOO1.PNT"
PHOTO  "FOO1.PNT[PNT,MLG]";
WRITE INTO FOO1.PNT
EXIT
{exiting at 17:09  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=53}
{ continued writing again at 17:13  26 Aug 1979}PHOTO FOO1.PNT
PHOTO FOO1
FING
;
EXIT
{exiting at 18:03  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=53}
{ WRITTEN BY POINTY AT 18:46  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
SETSTATUS(NOELF)
NODISPLAY
PHOTO FOO1.PNT
A←1
CASE A OF BEGIN[1] A←45; ELSE SCALAR B END
CASE A OF BEGIN [1] A←45; ELSE BEGIN SCALAR B; B←4 END  END
SHOW B
{ WRITTEN BY POINTY AT 19:11  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
NODISPLAY
SCALAR A
CASE A OF [1] A←2; ELSE A←45 END
CASE A OF BEGIN [1] A←2; ELSE A←45 END
CASE A OF BEGIN [1] A←2; ELSE A←45;[3] END
SETSTATUS (PPCODE)
CASE A OF BEGIN [1] A←2; ELSE A←45; [3] END
CASE A OF BEGIN [1] A←2; ELSE [3] A←45 END
CASE A OF BEGIN [1] A←2; [3] ELSE  A←45 END
CASE A OF BEGIN [1] A←2; [3]      END
CASE A OF BEGIN [1] A←2; ELSE A←3 END
A←1
SHOW A
SCALAR A
SCALAR B
RESETSTATUS(PPCODE)
A←2
EXIT
{exiting at 19:20  26 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=34}
{ continued writing again at 19:20  26 Aug 1979}A←1
DISPLAY
SCALARS
A←2
EXIT
{exiting at 19:23  26 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=34}
{ WRITTEN BY POINTY AT 19:37  26 Aug 1979 for ALIAS PPN = MLG
 LOGIN PPN = MLG USERNAME = Maria}
A←1
SETSTATUS(NOELF)
NODISPLAY
SETSTATUS(PPCODE)
A←1
A←2
CASE A OF BEGIN [1] A←56; ELSE A←6 END
SHOW A
A←4
A←5
SETSTATUS(NOELF)
A←2
RESETSTATUS(ELF)
RESETSTATUS(NOELF)
A←5
A←56
A←56+1
A←2
CASE A OF BEGIN [2] A←5;[5] A←0; ELSE ; [1] END
CASE A OF BEGIN [2] A←5;[5] A←0; ELSE ; END
CASE A OF BEGIN [2] A←5;[5] A←0; ELSE   END
{ WRITTEN BY POINTY AT 19:44  26 Aug 1979 for ALIAS PPN = MLG
 LOGIN PPN = MLG USERNAME = Maria}
A←1
NODISPLAY
SHOW A
CASE A OF BEGIN [1] A←3; ELSE A←4 END
CASE A OF BEGIN [1] A←3; ELSE A←4 END
CASE A OF BEGIN [1] A←3; ELSE END
CASE A OF BEGIN [1] A←3; ELSE A←0END
CASE A OF BEGIN [1] A←3; ELSE A←0 END
CASE A OF BEGIN [1] A←3; ELSE A←0 END
CASE A OF BEGIN [1] A←3; ELSE  END
PHOTO FOO1.PNT
A←78*A-5/2
EDIT A
EDIT A
EDIT A
RENAME B←A
SHOW A
SHOW B
EDIT B
EDIT B;
EDIT 
EDIT B
DEFINE XX=⊂A←2;⊃
EDIT XX
SHOW XX
EDIT B
COPY F INTO G
CONSTRUCT
;
F←CONSTRUCT
;
SETSTATUS(NOELF)
A←2
SHOW A
EDIT A
A←45
CASE A OF BEGIN [1] A←4; ELSE END
RESETSTATUS(PPCODE)
PHOTO FOO2.PNT
F←INPUT BARM
F ← INPUT BARM
F ← ↑ INPUT BARM
F ← ↑ INPUT 
F ← α INPUT 
SCALAR B;FOR A←1 STEP 1 UNTIL 2 DO B←A ;
SCALAR C;FOR A←1 STEP 1 UNTIL 2 DO B←A ;
SHOW A, B,C
RESETSTATUS(NOELF)
FOR A←1 STEP 1 UNTIL 3 DO B←A
PROCEDURE YY; BEGIN A←3; END;
YY
A←3
SETSTATUS(NOELF)
A←2
B←123
SHOW A,B,C
CASE A OF [4] A←1; ELSE END
CASE A OF BEGIN [4] A←1; ELSE END
CASE A OF BEGIN [4] A←1; ELSE END
CASE A OF BEGIN [4] A←1; ELSE END
CASE A OF BEGIN [4] A←1; ELSE END
FRAME F; F←INPUT
V←5,5,5)
V←(5,5,5)
V←VECTOR(5,5,5)
VECTOR V;V ← VECTOR(5,5,5)
VECTOR V1;V1 ← VECTOR(5,5,5)
SHOW V1
V2← (3,3,3)
SHOW V2
XCOORD(V1)←ZCOORD(V2)
RESETSTATUS(NOELF)
VECTOR V
EDIT V
RENAME GH←V
DELETE V
DELETE A
{ WRITTEN BY POINTY AT 20:10  26 Aug 1979 for ALIAS PPN = MLG
 LOGIN PPN = MLG USERNAME = Maria}
A←11
NODISPLAY
A←11
SHOW A
REDISPLAY
QQQQQ;
REDISPLAY
EDIT A
RENAME A←B
RENAME B←A
SHOW B,A
SHOW B,A
SETSTATUS(NOELF)
RESETSTATUS(NOELF)
SETSTATUS(NOELF)
A←45
SETSTATUS(NOELF)
A←567
F←FRAME(NILROTN,(4,5,6))
XCOORD(F)←A
SETSTATUS

;
RESETSTATUS(NOELF)
RESETSTATUS(NOELF)
RESETSTATUS(NOELF)
EXIT
{exiting at 20:16  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ continued writing again at 20:16  26 Aug 1979}A←34
A←34
BA←34
RESETSTATUS(NOELF)
A←4
EDIT A
RENAME C←A


;
NODISPLAY
SHOW A,B
SHOW B
A← INPUT
A← INPUT BARM
A← INPUT BARM
A← ↑ INPUT BARM
DEFINE XX=⊂A←56;⊃ END
DEFINE XX = ⊂A←56;⊃ END
DEFINE 
XX = ⊂A←56;⊃ END
XX = ⊂A←56;⊃ END;
DEFINE  XX = ⊂A←56;⊃ END;
PROCEDURE  XX;BEGIN A←56; END;
SCALAR A;PROCEDURE  XX;BEGIN A←56; END;
SCALAR A;PROCEDURE  XX;BEGIN A←56; END;
PROCEDURE  XX;BEGIN A←56; END;
PROCEDURE  YY;BEGIN A←56; END;
SHOW YY
SHOW XX
DEFINE ZZ =⊂A←5789;⊃ 
SHOW ZZ
REDISPLAY
XX
A←1234
DELETE A
{ WRITTEN BY POINTY AT 20:44  26 Aug 1979 for ALIAS PPN = MLG
 LOGIN PPN = MLG USERNAME = Maria}
SCALAR A
A←3
EDIT EDIT A
EDIT EDIT A;
EDIT EDIT A;;;;
EDIT EDIT ;;;;
EDIT A;;
EDIT A;
EDIT ;
EDIT 
EXIT
{exiting at 20:50  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 21:05  26 Aug 1979 for ALIAS PPN = MLG
 LOGIN PPN = MLG USERNAME = Maria}
A←1
SHOW A
NODISPLAYY
;
NODISPLAY
SHOW A
F←BARM
F←BARM
F←BARM
SHOW F
EDIT F
REDISPLAY
SETSTATUS(NOELF)
RESETSTATUS(NOELF)
RESETSTATUS(NOELF)
RESETSTATUS(PPCODE)
SHOW F
DEFINE XX = ⊂A←23;⊃
SHOW XX
SHOW A;
XX
EDIT XX
SHOW XX
PROCEDURE YY(SCALAR B;VECTOR V); BEGIN B←23;V←VECTOR(4,4,4); END
SHOW YY
YY
;
YY(C,V4);
SCALAR C; VECTOR V4;YY(C,V4);
SHOW C,V
SHOW C,V4
FF←BARM
BARM←F
FF← ↓ BARM
FF← ↑ BARM
REDISPLAY
SETSTATUS(LINE)
A←45
EXIT
{exiting at 21:10  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=35}
{ WRITTEN BY POINTY AT 22:35  26 Aug 1979 for ALIAS PPN = MLG
 LOGIN PPN =  GG USERNAME = Maria}
SCALAR A
CASE A OF BEGIN [0] A←4; [1] A←45; ELSE A←5 END
SETSTATUS(PPCODE);NODISPLAY;CASE A OF BEGIN [0] A←4; [1] A←45; ELSE A←5 END
CASE A OF BEGIN [0] A←4; [1] A←45; ELSE A←5 END
CASE A OF BEGIN [0] A←4; ELSE A←5 END
EDIT A
RENAME B←A
EXIT
{exiting at 22:39  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=38}
{ WRITTEN BY POINTY AT 23:18  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←4
RESETSTATUS(NOELF)
SETSTATUS(NOELF)
W←34
EXIT
{exiting at 23:19  26 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 23:21  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←45
EDIT W
EDIT W;
EDIT W W
EDIT W W ;
EDIT W ;
{ WRITTEN BY POINTY AT 23:42  26 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←3
EDIT W
EDIT W
EDIT W
EDIT W
QQQ←35;
{ WRITTEN BY POINTY AT 0:49  27 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←3;X←4
EDIT W
;
EDIT W
EDIT
;
{ WRITTEN BY POINTY AT 1:01  27 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←4
EDIT W
;
EDIT

;
X←4
EDIT



;
DEFIN QRE=⊂⊃;
DEFINE QRE=⊂⊃;
SHOW QRE
EDIT QRE
EDIT
EXIT
{exiting at 1:03  27 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 10:03  27 Aug 1979}A←9;
EVENT B;
SIGNAL B;
EXIT
{ WRITTEN BY POINTY AT 13:14  27 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
NODISPLAY
EDIT A;
SCALAR A;EDIT A;
;
RENAME B←A;
DISPLAY SCALARS
SETSTATUS(NOELF)
PHOTO 
;
F←FRAME(NILROTN,(4,5,6))
RESETSTATUS(NOELF);XCOORD(F)←YCOORD(F)
SHOW F
POS(F)←(2,3,4)
ORIENT(F)←ROT(XHAT,90)
F1←FRAME(ORIENT(F),(5,6,7))
DISPLAY FRAMES
V←POS(F1)
DISPLAY
VECTORS
A←XCOORD(F)
SHOW A
A←XCOORD(A);
A←XCOORD(YCOORD(V));
B←2;CASE A OF BEGIN [1] CASE B OF BEGIN [2] B←10; ELSE END;[2]A←1 END
CASE A OF BEGIN [1] CASE B OF BEGIN [2] B←10; ELSE END;[2]A←1 END
SHOW
B
SHOW A,B,F;
DEFINE XX = A←4;
DEFINE XX =⊂ A←4;⊃
SHOW A,B,XX
DISPLAY SCALARS
REDISPLAY
DISPLAY SCALARS
REDISPLAY
EXIT
{exiting at 13:30  27 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=46}
{ WRITTEN BY POINTY AT 16:27  27 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
A←2
9←A
A←9
BAIL;

EXIT
{exiting at 16:29  27 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 16:56  27 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
BAIL;
EXIT
{exiting at 16:57  27 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 21:18  27 Aug 1979 for ALIAS PPN =  HE
 LOGIN PPN = MLG USERNAME = Maria}
A←3
EDIT A
RENAME B←A
CASE B OF BEGIN [4]B←1;[1] A←3 END
CASE B OF BEGIN [4]B←1;[1] A←3 END
F←BARM;
POS(F)←(4,5,6)
ORIENT(F)←NILROTN
;
XCOORD(F)←ZCOORD(BARM);
F1←↑BARM;
AFFIX F1 TO F
EDIT F1
EDIT F1
F1←↑BARM
AFFIX F1 TO F
F2←BARM
F3←↓BARM
F4←αBARM
EDIT F3
EDIT F3
POS(F3)←POS(F2)
PHOTO FOO.PNT[PNT,MLG];
RENAME F5←F4
FRAME F6
F6←F5
NODISPLAY
SETSTATUS(PPCODE)
A←|XHAT|
RESETSTATUS(PPCODE)
B←|XHAT|*XCOORD(F2)
REDISPALY
;
REDISPLAY
EDIT B
C←|XHAT|
V←(5,6,7)
A←|V|
C←|V|*B+XCOORD(V)*ZCOORD(F1)
KILL
;
OPEN BHAND BY -1
{ WRITTEN BY POINTY AT 22:11  27 Aug 1979 for ALIAS PPN =  HE
 LOGIN PPN = MLG USERNAME = Maria}
NODISPLAY
BAIL;
EXIT;
{exiting at 22:11  27 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 22:14  27 Aug 1979 for ALIAS PPN =  HE
 LOGIN PPN = MLG USERNAME = Maria}
BAIL;
NODISPLAY
A←1
DELETE A;
A←3;
SCALAR B;
DELETE B;
DELETE B
EDIT B
DELETE ;
REDISPLAY
BAIL;
SCALAR A,B;FRAME F;
NODISPLAY
DELETE ALL;
BAIL;
SCALAR A,B;VECTOR C; FRAME F;
DELETE;
DISPLAY
;
REDISPLAY
{ WRITTEN BY POINTY AT 23:20  27 Aug 1979 for ALIAS PPN =  HE
 LOGIN PPN = MSM USERNAME = Shahid}
TRANS T1
T1←NILTRANS
AFFIX T1 TO BARM
EXIT
{exiting at 23:20  27 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 23:54  27 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←2,S←3
DELETE W
W←45
RENAME B←W
DELETE B,A,W
DELETE B,S,B
DEFINE QRE=⊂A B C⊃;
PROCEDURE XX; BEGIN END;
DELETE QRE,XX
DELETE XX
XX
;
BAIL
{ WRITTEN BY POINTY AT 0:31  28 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←2;X←3;Y←6
RENAME X←W
RENAME Z←W
DELETE X,Y,Z
DEFINE QRE=⊂A B C⊃;
DELETE QRE
DISPLAY MACROS
DELETE NILVEC
PROCEDURE QQ; BEGIN END;
DELETE QQ
TRANS T1;
T1←NILTRANS
DISPLAY FRAMES
{ WRITTEN BY POINTY AT 11:07  28 Aug 1979 for ALIAS PPN =  HE
 LOGIN PPN = MLG USERNAME = Maria}
A←5
DELETE A
DELETE ALL
A←3;B←6
DELETE ALL
EXIT
{exiting at 11:08  28 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 11:57  28 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
TRANS ARRAY T[1:3];
AFFIX T[1] TO BARM
T1←NILTRANS
AFFIX T1 TO T[1]
AFFIX T1 TO T[1]
DELETE T
EXIT
{exiting at 12:01  28 Aug 1979
	$FPMAX=6
	$INTMAX=7
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 13:55  28 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
READ ERROR.PNT
NODISPLAY
SCALAR I;
DISPLAY MACROS
FOR I←1 STEP 1 UNTIL 10 DO BEGIN SPRINT(CRLF_STRING); PRINT(I); END
FOR I←1 STEP 1 UNTIL 10 DO BEGIN SPRINT(CRLF_STRING); PRINT("HI"); END
SPRINT(CRLF_STRING);SPRINT(GRAB_STRING);
DISPLAY SCALARS
EXIT
{exiting at 13:59  28 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=80}
{ WRITTEN BY POINTY AT 14:04  28 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY MACROS
DEFINE A(A1,A2,A3)=⊂A1+A2+A3⊃;
W←A(1,2,3);
SHOW A,W
W←A(1+2,3,4);
W←A(1.2,3,4);
W←A(1.2,3.4,5.6);
W←A(2,3,4);
W←A(2.1,3,4);
W←A(2.1,4);
W←A(2.1,4,7);
SETSTATUS(LINE);
W←A(1,2,3);
W←A(1.2,3,4)
;
W←1.2+3+4;
N←1.2*2;
SHOW N
SHOW W,N
W←1.2+3;
W←2.5+5;
SETSTATUS(PPCODE);
W←2.5+5
W←2.5
W←2.5+3
W←2+3
W←2-3;
W←2.5-1;
W←2.5+(1);
W←2.5+(1);
W←2.5+1;
BAIL;
W←1.2+3
W←1.2+3+4;
W←1.2+3+4+5;
W←1.2+3
BAIL;
W←1.7+6;
BAIL(BREAK("GTOKEN");!!GO;);
W←1.2+4
W←2.3+11
W←2+3.5
{ WRITTEN BY POINTY AT 14:58  28 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
A←2.2 + 3
A←2.2+ 3
A←2.2@+ 3
A←2.2@3
A←2.2@ 3

A←2.2 @3
{ WRITTEN BY POINTY AT 9:48  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
K←L
K←5
EXIT
{exiting at 9:51  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 10:44  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY
BAIL;
EVENT A;
BAIL
EVENT B;
BAIL
EVENT C;
{ WRITTEN BY POINTY AT 11:02  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY
SCALAR A,B,A;
SCALAR A
SCALAR A;
EVENT A,B,A;
EVENT D,C,S;
EVENT K,L,K
{ WRITTEN BY POINTY AT 11:46  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
A←5@-9;
A ← 5.@-9
A ← 5 @2
A ← 5 @-2
EXIT
{exiting at 11:47  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 13:22  29 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
A←2
A←2.2-1
A←2.3@2

A←2@2
A←2@-2
A←2 @-2
A←3 @-2
A←3@-2
A←3 @-2 + 3
A← @-2
A← @-3
A← .@-3
A← .3@-3
A← 23.3@-3
A←2,B←3
A←2)B←3
A←4RT
A←4T
A←4+2.1
A←2 @2 +2
A←2@2 +2
A←2@-2 +2
A←5@-2
A←6789
A←6789A
A←6789 A
A←6789+A
A←89 A
EVENT
;
SETSTATUS(PLINE)
SETSTATUS(LINE)
A←56.@-3+3
A←56+89.@4
RESETSTATUS(LINE)
EDIT A
EXIT
{exiting at 13:37  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 13:45  29 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MLG USERNAME = Shahid}
A←1;B←2;C←3
A←2,B←3
A←2 B←3
A←3;B←2;
EDIT A
EDIT A;
DELETE A,A,C
DELETE A,A,C;
DELETE C;
DELETE B;
DISPLAY PROCEDURE
DISPLAY PROCEDURE
A←3
A←1;B←2;C←3;D←4;E←5
BEGIN A←1;B←2;C←3;D←4;E←5 END
EXIT
{exiting at 13:56  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=37}
{ WRITTEN BY POINTY AT 15:05  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
EVENT A,B,A
DISPLAY SCALARS
DISPLAY EVENT
SHOW A
DISPLAY EVENT
EXIT
{exiting at 15:07  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 15:09  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
EVENT A
DISPLAY EVENTS
EVENT B
DISPLAY SCALAR
DISPLAY EENT
DISPLAY EVENT
DELETE ALL
EVENT A,B
REDISPLAY
DELETE A,B
EVENT X,Z
DISPLAY EVENT
DELETE X
DELETE X
REDISPLAY
DISPLAY EVENTS
EVENT W
EXIT
{exiting at 15:30  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 15:34  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
EVENT A,B,A
DISPLAY EVENT
EVENT A
EVENT B
EVENT B
DELETE B
DELETE ALL
EDIT A
EVENT A;

B←4
EDIT B
DISPLAY SCALAR
EDIT A
DISPLAY
EVENTS,SCALAR
EXIT
{exiting at 15:37  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 16:12  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
A←9
EVENT
A
AA
;
EVENT AA
DISPLAY EVENT
EDIT AA
DELETE AA
EVENT B,N,M
DELETE B,N
DELETE ALL
EVENT A,D,B,M
DELETE A,B
BEGIN EVENT V END
BEGIN EVENT V;END
EXIT
{exiting at 16:16  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 17:09  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
OPEN BHAND TO 1
A←BARM
MOVE BARM TO A
D←4
 CASE D OF [1] D←4; [4] D←1; ELSE D←7 END
 CASE D OF BEGIN[1] D←4; [4] D←1; ELSE D←7 END
 CASE D OF BEGIN[1] D←4; [4] D←1; ELSE D←7 END
FOR I←1 STEP 1 UNTIL 3 DO BEGIN OPEN BHAND TO I ; END
SCALAR I;FOR I←1 STEP 1 UNTIL 3 DO BEGIN OPEN BHAND TO I ; END
EVENT N,M,K
DISPLAY EVENT
SHOW N,M,K,A
SHOW N,M,K,A,BHAND
DELETE N,M
SHOW N,M
DISPLAY EVENTS
EVENT K
EVENT KK,J
EDIT K
RENAME L←K
B←3 + L
{ WRITTEN BY POINTY AT 17:19  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
DEFINE XX =⊂A←1;⊃
B←XX
DEFINE AA=⊂2⊃
B←AA+3
PROCEDURE YY; BEGIN A←5; END
SCALAR A;PROCEDURE YY; BEGIN A←5; END
V←YY
YY
YY
A←7
EDIT A
DISPLAY SCALAR
REDISPLAY
A←A+1
YY;
OPEN BHAND TO 2
OPEN BHAND TO 2
YY
EXIT
{exiting at 17:26  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 17:27  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
A←4
BEGIN A←7; END
PROCEDURE YY(I); BEGIN SCALAR B;B←I;PRINT B; END
PROCEDURE YY(SCALAR I); BEGIN SCALAR B;B←I;PRINT B; END
PROCEDURE YY(SCALAR I); BEGIN SCALAR B;B←I; PRINT(B); END
YY(A)
EXIT
{exiting at 17:30  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=28}
{ WRITTEN BY POINTY AT 17:31  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
PROCEDUE YY(SCALAR I); BEGIN SCALAR B; B←I; PRINT (B); END
PROCEDURE YY(SCALAR I); BEGIN SCALAR B; B←I; PRINT (B); END
A←7
YY(A)
OPEN BHAND TO 2.4
F←BARM
TO 1
PHOTO FOO.PNT
CASE A OF BEGIN [7]A←2;[2] A←7 END
CASE A OF BEGIN [7]A←2;[2] A←7 END
DEFINE XX = ⊂5⊃
D←XX+9
D←5@-2
EVENT V;EVENT Y
DELETE V
DISPLAY EVENTS
REDISPLAY
H←F+A
H←F+XX
;
DEFINE ZZ = ⊂ A←5⊃
H←F+ZZ;
H←D+ZZ
T←↑BARM
AFFIX T TO F
UNFIX T 
UNFIX T FROM F
Y←↓BARM
Z←↓BARM
AFFIX Z TO T
EXIT
{exiting at 17:45  29 Aug 1979
	$FPMAX=6
	$INTMAX=6
	$PCDMAX=35}
{ WRITTEN BY POINTY AT 17:46  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
A←BARM
EVENT DISASTER
H←A+DISASTER
H←3*(A+DISASTER)
BEGIN H←3*(A+DISASTER); NED
SCALAR H;BEGIN H←3*(A+DISASTER); NED
PROCEDURE YY; BEGIN H←A+DISASTER END
PROCEDURE YY; BEGIN PRINT(DISASTER) END
PROCEDURE YY; BEGIN PRINT(DISASTER) END
YY
DELETE ALL
SHOW DISASTER
EVENT DISASTER;SHOW DISASTER
EXIT
{exiting at 17:51  29 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 20:36  29 Aug 1979 for ALIAS PPN =  HE
 LOGIN PPN = MLG USERNAME = Maria}
NODISPLAY
EVENT EVV;
SETSTATUS(PPCODE);
COBEGIN BEGIN A←3; END; BEGIN B←45; END; COEND
SCALAR A,B;COBEGIN BEGIN A←3; END; BEGIN B←45; END; COEND
EXIT
{exiting at 20:45  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=31}
{ WRITTEN BY POINTY AT 20:45  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
EVENT READY,PASSED
SHOW EVENTS
DISPLAY EVENTS
BEGIN EVENT NEW; DISPLAY EVENTS; END
SETSTATUS(PCODE)
SETSTATUS(PPCODE)
BEGIN EVENT NEW; END;
EXIT
{exiting at 21:04  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 21:10  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
EVENT READY,PASSED
DISPLAY EVENTS
SETSTATUS(PPCODE)
EVENT NEW
BEGIN EVENT OLD END;
BEGIN EVENT OLD;END;
BEGIN SCALAR A; END
BEGIN EVENT OLD1; BEGIN EVENT OLD2;END;END
SCALAR ARRAY SS[1:5];
EVENT ARRAY SS[1:2]
EVENT ARRAY EV[1:2]
VECTOR ARRAY VT[1:2]
ROT ARRAY VT[1:2]
ROT ARRAY RT[1:2]
FRAME ARRAY FR[1:2]
TRANS ARRAY TR[1:2]
SHOW TR
DISPLAY FRAME
FRAME F;DISPLAY FRAME
FRAME F;DISPLAY FRAME;
FRAME F2; DISPLAY FRAME;
FRAME F2; DISPLAY FRAME;
A←2; A←3
DISPLAY EVNTS
DISPLAY EVENTS
A←3;B←6
RESETSTATUS(PPCODE)
A←6; SHOW A
A←5; DISPLAY SCALARS
A←5;DISPLAY SCALARS
SETSTATUS(PPCODE)
SCALAR G,H;DISPLAY SCALAR
SCALAR G,H; DISPLAY SCALAR
SCALAR G1,H1; DISPLAY SCALAR
SCALAR G2;SCALAR H2; DISPLAY SCALAR
RESETSTATUS(PPCODE)
SCALAR W,Z; DISPLAY SCALARS
A←4567;   DISPLAY SCALARS
A←4567+5;   DISPLAY SCALARS
DELETE A; DISPLAY SCALARS
DELETE A; SHOW B,G,Z
DELETE H; SHOW B,G,Z
AA←34.@2; SHOW B,G,Z
A←78;DELETE A;B←67
EDIT B
CASE B OF BEGIN [0] B←123; [1] B←10; ELSE B←1 END
EDIT B
EXIT
{exiting at 21:37  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=38}
{ WRITTEN BY POINTY AT 21:46  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
SCALAR A; SHOW A;
BAIL;
A←1;SHOW A
EDIT A;SHOW A
F←FRAME(NILROTN,(3,3,3))
F2←F1+(2,2,2)
F2←F+(2,2,2)
BAIL;
AFFIX F2 TO F; A←56
BAIL
AFFIX F2 TO F; A←3
EXIT
{exiting at 21:58  29 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 22:08  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
SCALAR A,B,C; SHOW A;
SCALAR D,E,F; SHOW A
SCALAR D,E,F; DISPLAY SCALAR
F←4; DISPLAY SCALAR
F←4; DISPLAY SCALAR
F←4;;DISPLAY SCALAR
F←4;
DISPLAY SCALAR
DISPLAY SCALAR
;DISPLAY SCALAR
SCALAR A;DISPLAY SCALAR
SCALAR C;DISPLAY SCALAR
SCALAR W;DISPLAY SCALAR
A←67;A←69
A←67;B←69
A←45+3; SCALAR K
F←FRAME(NILROT,(7,8,9));DISPLAY FRAME
FFF←FRAME(NILROT,(7,8,9));DISPLAY FRAME
;FFF←FRAME(NILROT,(7,8,9));DISPLAY FRAME
;;;FFF←FRAME(NILROT,(7,8,9));DISPLAY FRAME
FFF←FRAME(NILROT,(7,8,9));DISPLAY FRAME;
{ WRITTEN BY POINTY AT 22:24  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
SCALAR A,B;A←3
SCALAR A,B;DISPLAY SCALAR
SCALAR C,D;DISPLAY SCALAR
A←345@-2;DELETE C,D;SHOW A;
A←345@-2;SCALAR C,D;DELETE C,D;SHOW A;
BEGIN SCALAR K;K←4;SHOW K;END;
BEGIN SCALAR K;K←4;SHOW K;END;
BEGIN SCALAR K;K←4;END;
BEGIN SCALAR K,H;K←4;END;
BAIL;
SCALAR K,H;SHOW K,H;
SCALAR W,H;DELETE W,H;
SCALAR WF,KL;DELETE WF,KL
VECTOR VVV; DELETE VVV
VECTOR XX,KL;DISPLAY VECTORS;
XX←(4,5,6); DELETE KL
XX←(4,5,6); SCALAR J1,J2;DELETE XX,J2;
SCALAR J3,J4;DISPLAY SCALARS
S←34@-3;SCALAR J5,J6;DISPLAY SCALARS; SHOW S
DELETE J5,J6; J7←67@-1
A←6
CASE A OF BEGIN[2]A←6;[0] BEGIN SCALAR C,G;END END
CASE A OF BEGIN[2]A←6;[0] BEGIN SCALAR C,G;END END
CASE A OF BEGIN[2]A←6;[0] A←7 END
SCALAR G2,G3; DISPLAY SCALAR
DELETE G2,G3; CASE A OF BEGIN A←7;A←6 END
DELETE G2,G3; 
CASE A OF BEGIN A←7;A←6 END
CASE A OF BEGIN A←7;A←6 END
;CASE A OF BEGIN A←7;A←6 END
SCALAR A;CASE A OF BEGIN A←7;A←6 END
SCALAR F;CASE A OF BEGIN A←7;A←6 END
SCALAR I; FOR I←1 STEP 1 UNTIL 3 DO PRINT(I)
FOR I←1 STEP 1 UNTIL 3 DO PRINT(I)
A←6;FOR I←1 STEP 1 UNTIL 3 DO PRINT(I)
A←6;FOR I←1 STEP 1 UNTIL 3 DO BEGIN  PRINT(I);A←8; END
FOR I←1 STEP 1 UNTIL 3 DO BEGIN  PRINT(I);A←8; END
A←67;B←89
FOR I←1 STEP 1 UNTIL 2 DO A←7 END
;;;;;FOR I←1 STEP 1 UNTIL 2 DO A←7 END
DO BEGIN A←I;I←I+1 END UNTIL I=2
SETSTATUS(PPCODE);
SETSTATUS(LINE);
DELETE J1,J3,J7;A←67
CASE A OF BEGIN A←7;A←2 END
FOR I←1 STEP 1 UNTIL 2 DO A←I
FOR I←1 STEP 1 UNTIL 2 DO PRINT(I)
FOR I←1 STEP 1 UNTIL 2 DO A←I
RESETSTATUS(PPCODE);
FOR I←1 STEP 1 UNTIL S DO BEGIN A←S;END
FOR I←1 STEP 1 UNTIL S DO BEGIN A←S;END;;
FOR I←1 STEP 1 UNTIL S DO A←I; END
BAIL
FOR I←1 STEP 1 UNTIL S DO A←I;END
FOR I←1 STEP 1 UNTIL S DO A←I;
BAIL;
A←1;
DELETE A,S;
BAIL
SCALAR P,O;
CASE O OF A←6;A←5 END
CASE O OF BEGIN A←6;A←5 END
BAIL
CASE O OF BEGIN A←2;A←4 END
CASE O OF BEGIN PRINT(A)END
RESETSTATUS(LINE);
FOR I←1 STEP 1 UNTIL 2 DO A←1
BAIL
FOR I←1 STEP 1 UNTIL 2 DO A←I;
{ WRITTEN BY POINTY AT 23:26  29 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
SCALAR A,B;
SCALAR C,D;BEGIN A←2;END
SCALAR C,D;BEGIN A←2;END
BEGIN A←2;END
BEGIN A←5; END;
VECTOR V1,V2; SHOW V1;
NODISPLAY;VECTOR V3,V4; SHOW V1;
NODISPLAY;VECTOR V3,V4; SHOW V1;
NODISPLAY;VECTOR V3,V4;
SCALAR I;FOR I←1 STEP 1 UNTIL 2 DO A←I;
SCALAR Y;FOR I←1 STEP 1 UNTIL 2 DO A←I; VECTOR H;
CASE I OF A←I;A←6 END
CASE I OFBEGIN  A←I;A←6 END
CASE I OF BEGIN  A←I;A←6 END
A←34+25*I
FRAME F,K
FRAME F1,F2;DELETE F1
WHILE A≠0 DO A≠A+1
SCALAR A;WHILE A≠0 DO A≠A+1
SCALAR B;WHILE B≠0 DO B←B+1
WHILE B≠0 DO B←B+1; SCALAR O
FOR I←1 STEP 1 UNTIL 2 DO BEGIN I←1; END
FOR I←1 STEP 1 UNTIL 2 DO PRINT(I); SCALAR OO
FOR I←1 STEP 1 UNTIL 2 DO BEGIN SCALAR HJ;HJ←1; END; VECTOR V
VECTOR VVV;A←67
CASE I OF BEGIN A←4;A←6 END; FRAME FG
DISPLAY SCALARS;A←1
SETSTATUS(PPCODE);DISPLAY SCALARS;A←1
RESETSTATUS(PPCODE);
CASE I OF BEGIN [0] A←4 END
CASE I OF [2] PRINT(A) END;SCALAR JKL
CASE I OF BEGIN [2] PRINT(A) END;SCALAR JKL
WHILE A≠0 DO PRINT A; END; ROT R;
WHILE A≠0 DO PRINT( A); END; ROT R;
WHILE A≠0 DO PRINT(A)
WHILE A≠0 DO DISPLAY SCALAR
F←(NILROT,(9,8,7))
AFFIX F TO BPARK;
AFFIX F TO YPARK;SCALAR TY
EXIT
{exiting at 0:12  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=41}
{ WRITTEN BY POINTY AT 13:22  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY
SETSTATUS(PPCODE);
BEGIN SCALAR A ; END;
EVENT READY
BEGIN EVENT READY END
BEGIN EVENT READY;END
BEGIN ARRAY EVENT EV[1:2];END
{ WRITTEN BY POINTY AT 13:52  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODIPLAY
;
NODISPLAY
SETSTATUS(PPCODE);
EVENT READY;
SIGNAL READY
BAIL;
SIGNAL READY
EXIT
{exiting at 13:56  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 14:10  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY
SETSTATUS(PPCOD)
SETSTATUS(PPCODE)
EVENT KJH,LOI;
SIGNAL LOI;
SCALAR A;
BEGIN A←3;END
SIGNAL KJH;
EVENT ARRAY E[1:9]
SIGNAL E[4]
EVENT ARRAY V[1:7]
SIGNAL V[3]
BEGIN SIGNAL V[3]; END
BEGIN EVENT V;SIGNAL V ;
END
DISPLAY EVENT
EVENT ARRAY K[9:99]
DISPLAY EVENT
DISPLAY ARRAY
DISPLAY ARRAYS
BEGIN EVENT T; DISPLAY EVENTS; END
{ WRITTEN BY POINTY AT 14:45  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
EVENT V
SIGNAL V
WAIT V
SETSTATUS(PPCODE)
NODISPLAY
SIGNAL S;
SIGNAL V;
WAIT
 V;
BEGIN EVENT E; SIGNAL E; WAIT E;END
BEGIN EVENT E;SIGNAL E;
WAIT E; END;
DISPLAY EVENT;
WAIT E;
EVENT V
EVENT VW;
DISPLAY EVENTS
SIGNAL VW
WAIT VW
BEGIN WAIT VW ; END
BEGIN EVENT GG; WAIT GG ; END
BEGIN EVENT GG;SIGNAL GG; WAIT GG; END
BEGIN EVENT GG;SIGNAL GG;;WAIT GG; END
EXIT 
{exiting at 14:55  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 15:01  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY
SETSTATUS(PPCODE);
EVENT V;
SIGNAL V;
A←1;
A←A*7+2
BEGIN EVENT W;SIGNAL W;A←5;WAIT W;END
BEGIN EVENT W;SIGNAL W;;A←5;WAIT W;END
BEGIN EVENT W;WAIT W;A←5;SIGNAL W;END
BEGIN EVENT W;WAIT W;;A←5;SIGNAL W;END
EXIT
{exiting at 15:05  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 15:12  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY;
EVENT V;
BEGIN EVENT VV; SIGNAL VV;WAIT VV;END
EVENT VV; SIGNAL VV;WAIT VV;
EXIT
{exiting at 15:15  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 15:20  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY;
SETSTATUS(PPCODE);
EVENT V;
SIGNAL V;
EXIT
{exiting at 15:30  30 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 16:14  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY;
SETSTATUS(PPCODE);
SIGNAL E;
EVENT E; SIGNAL E;
EXIT;
{exiting at 16:16  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 16:20  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY;
SETSTATUS(PPCODE);
EVENT E; SIGNAL E
WAIT E
EVENT ARRAY EV[1:2];
SIGNAL EV[2];
BEGIN SIGNAL E;WAIT E;END
BEGIN SIGNAL E;;WAIT E;END
BAIL;
BEGIN  SIGNAL E; WAIT E; END
BAIL;
BEGIN
SIGNAL E;WAIT E; END
SIGNAL E;;WAIT E; END
BEGIN SIGNAL E;;WAIT E; END
BEGIN SIGNAL E;WAIT E; END
BAIL;
BEGIN SIGNAL E;WAIT E;END
BEGIN SIGNAL E;WAIT E; END
BAIL;
BEGIN SIGNAL E;WAIT E; END
BEGIN SIGNAL E;;WAIT E; END
KL 1/MLG
EXIT
{exiting at 19:43  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 19:52  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY;SCALAR A; IF A <1 THEN A←1;VECTOR B
NODISPLAY;BEGIN IF A <1 THEN A←1;END;SCALAR C
IF A<1 THEN BEGIN A←1;END ELSE END
IF A<1 THEN BEGIN A←1;END ELSE ;END
IF A<1 THEN BEGIN A←1;END ELSE  END
BEGIN IF A<1 THEN BEGIN A←1;END ELSE  END
BEGIN IF A<1 THEN BEGIN A←1;END ELSE ;END
CASE A OF[1] A←2 END
CASE A OF BEGIN[1] A←2 END
CASE A OF BEGIN[1] A←2 END;SCALAR D
BEGIN CASE A OF BEGIN[1] A←2 END;A←56;END
EXIT
{exiting at 20:06  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=28}
{ WRITTEN BY POINTY AT 20:32  30 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY;SCALAR A;
SHOW A,BARM;EDIT A;END
EDIT A;SCALAR C
RENAME B←A;SCALAR D:
RENAME B←A;
PHOTO FOO.PNT;F←(NILROT,(5,5,5));AFFIX F TO BPARK;SHOW F
SETSTATUS(PPCODE);DEFINE XX ⊂H⊃ = ⊂A←H;⊃; VECTOR V;
SETSTATUS(PPCODE);DEFINE XX (H) = ⊂A←H;⊃; VECTOR V;
SHOW XX,F,B;UNFIX F FROM BPARK;
EVENT E;SIGNAL E;WAIT E;
XX(4)
EXIT;
{exiting at 20:38  30 Aug 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 11:33  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
EVENT E
SIGNAL E;
SETSTATUS(PPCODE);
NODISPLAY
SIGNAL E
WAIT E;
K
{ WRITTEN BY POINTY AT 14:05  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
A←9;
PRINT(A)
NODISPLAY
SETSTATUS(PPCODE)
PRINT(A)
BEGIN EVENT E; END;
EVENT E
SIGNAL E
REDESPLAY
REDEIPLAY
REDISPLAY
A←A+1
DISPLAY EVENT
EVENT E
{ WRITTEN BY POINTY AT 14:55  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
EVENT E
DIPLAY EVENT
DISPLAY EVENT
SETSTATUS(PPCODE)
A←9
PRINT(A)
SIGNAL E
{ WRITTEN BY POINTY AT 15:23  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
A←A+9
A←9
EVENT E
DISPLAY EVENTS
SETSTATUS(PPCODE)
PRINT(A+9)
BEGIN EVENT V; SIGNAL V;END
{ WRITTEN BY POINTY AT 16:14  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
A←8
EVENT E
DISPLAY EVENT
SETSTATUS(PPCODE)
A←A+1
SIGNAL E
BEGIN EVENT EV; SIGNAL EV; END
COBEGIN EVENT E1,E2; BEGIN PRINT(A) ; SIGNAL E1; WAIT E2; END;
COBEGIN EVENT E1,E2; 
BEGIN PRINT(A) ; SIGNAL E1; WAIT E2; END;
EVENT V
COBEGIN BEGIN PRINT(A);SIGNAL E;WAIT V;END
; BEGIN WAIT E;PRINT(A+1); SIGNAL V; END; COEND
COBEGIN BEGIN SCALAR I; FOR I←1 STEP 1 UNTIL 5 DO BEGIN WAIT E;PRINT(A+1); SIGNAL V; END;END;
BEGIN SCALAR J; FOR J←1 STEP 1 UNTIL 5 DO BEGIN PRINT(A); SIGNAL E; WAIT V;END;END;COEND
EVENT N
DISPLAY EVENTS
REDISPLAY
DISPLAY EVENT
BEGIN WAIT E; PRINT(A) END
SIGNAL E
{ WRITTEN BY POINTY AT 16:37  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
EVENT E,V,N
DISPLAY EVENT
SIGNAL E
A←9
WAIT E;PRINT(A)
COBEGIN
BEGIN WAIT E;PRINT("1"); SIGNAL V END
;BEGIN WAIT N;PRINT("2");SIGNAL E END;
BEGIN PRINT("3"); SIGNAL N; WAIT V; PRINT("END") END COEND
OPEN BHAND TO 1.4
F1←BARM
BPARK
MOVE BARM TO BPARK
TO F1
TO BPARK
EXIT
{exiting at 16:47  31 Aug 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=63}
{ WRITTEN BY POINTY AT 17:39  31 Aug 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
NODISPLAY
EVENT E;
EVENT ARRAY READY[1:2];
SIGNAL READY[1];
SIGNAL READY[2];
WAIT READY[1];
WAIT READY[2];
COBEGIN BEGIN WAIT READY[2];PRINT("OK 2");SIGNAL READY[1];END
BEGIN SIGNAL READY[2];PRINT("OK ");WAIT READY[1];PRINT("END");END COEND
COBEGIN
BEGIN WAIT READY[2];PRINT(2);SIGNAL READY[1];END;
BEGIN SIGNAL READY[2];PRINT("START");WAIT READY[1];PRINT("END");END;COEND;
RENODISPLAY
;
REDISPLAY
EXIT
{exiting at 17:44  31 Aug 1979
	$FPMAX=6
	$INTMAX=7
	$PCDMAX=58}
{ WRITTEN BY POINTY AT 23:19  31 Aug 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
DISPLAY SCALARS
W←3
HELP
W←4
HELP
W←4
HELP
HELP
HELP
HELP
HELP
HELP
HELP
HELP
{ WRITTEN BY POINTY AT 15:53  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  GG USERNAME = Hamid}
NODISPLAY
SETSTATUS(PPCODE);
SCALAR A;
BEGIN SCALAR A; A←45; END
PROCEDURE XX(SCALAR A); BEGIN A←23; END
FRAME F;
PROCEDURE YY(FRAME F; VECTOR A) ; BEGIN F←BARM; A←(3,4,5)); END
PROCEDURE YY(FRAME F; VECTOR A) ; BEGIN F←BARM; A←(3,4,5); END
F←YARM;
PROCEDURE ZZ(FRAME F); F←BARM; 
PROCEDURE KK(FRAME FF) ; FF←F;
EDIT KK
EVENT E;EDIT E
EXIT
{exiting at 16:00  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=34}
{ WRITTEN BY POINTY AT 17:47  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  GG USERNAME = Hamid}
PROCEDURE XX(SCALAR I); I←A; END
A←10;PROCEDURE XX(SCALAR I); I←A; 
DEFINE ZZ(SCALAR J) =⊂ XX(J);⊃
DEFINE ZZ(SCALAR K) =⊂ XX(K);⊃
DEFINE ZZ(SCALAR KK) =⊂ XX(KK);⊃
DEFINE ZZ(KKK) =⊂ XX(KKK);⊃
WRITE INTO FOO.PNT[PNT,MLG];
DELETE ALL
READ FOO.PNT[PNT,MLG]
XX(C);
ZZ(B);
 XX(A);
PROCEDURE YY(SCALAR I); BEGIN XX(I); ZZ(I); END
WRITE FOO1.PNT[PNT,MLG]
WRITE INTO FOO1.PNT[PNT,MLG]
DEFINE KK(I)=⊂ZZ(I);⊃
PROCEDURE WW(SCALAR I); BEGIN KK(I);ZZ(I);XX(I); END
WRITE INTO FOO1.PNT[PNT,MLG
READ FOO1.PNT[PNT,MLG
DELETE ALL
READ FOO1.PNT[PNT,MLG
;
EXIT
{exiting at 18:04  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=30}
{ WRITTEN BY POINTY AT 18:20  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  GG USERNAME = Hamid}
A← 34A.8
A← A.8
SCALAR A;A← A.8
A← A.8
VECTOR V
A← V.V
WRITE INTO FOO.2[PNT,MLG]
WRITE INTO 123.2[PNT,MLG]
EXIT
{exiting at 18:43  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 18:45  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  GG USERNAME = Hamid}
A←1
A←A.6
VECTOR V
A←V.V
A← 2AB.2
A← 234.2
A←2D4.7
A←2DA.7
A←2DA.1
A←2DA1
A←2DA1
A←2DA1
EXIT
{exiting at 18:55  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 18:56  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  GG USERNAME = Hamid}
A←45.4
A←4A
A←4A.3
A←4A 7
EXIT  
{exiting at 19:00  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 19:01  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  GG USERNAME = Hamid}
A←34A
A←34.A
A←34A.A
A←A3A.3
A←1;A←A3A.3
A3A←1;A←A3A.3
EXIT
{exiting at 19:04  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 21:05  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
EXIT
{exiting at 21:05  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 21:09  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
SETSTATUS(PPCODE);
NODISPLAY
A←1;
CASE A OF BEGIN [1] A←3; ELSE A←1 END
CASE A OF BEGIN [1] A←3; [2] A←4 END

CASE A OF BEGIN [1] A←2; [2] A←2 END
EXIT
{exiting at 21:34  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=30}
{ WRITTEN BY POINTY AT 21:37  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
SCALAR A;
NODISPLAY
SETSTATUS(PPCODE);
CASE A OF BEGIN [1] A←3;[3] A←2; ELSE A←8 END
IF A THEN A←4 ELSE A←6
EXIT
{exiting at 21:45  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=40}
{ WRITTEN BY POINTY AT 21:56  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
SETSTATUS(LINE);
A←1;B←4;
BEGIN A←2;
B←5;
END
A←3
BAIL
A←1
A←
;
EXIT;
{exiting at 22:02  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 22:15  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
SETSTATUS(LINE)
A←1
A←3;B←
2
PROCEDURE XX; BEGIN A←2; END
SHOW XX
DEFINE ZZ=⊂Z←23;⊃
SHOW XX,ZZ
DEFINE ZZZ=⊂A←56;B←78⊃
SHOW XX,ZZ,ZZZ
EXIT
{exiting at 22:31  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ continued writing again at 22:31  2 Sept 1979}WRITE FOO.PNT[PNT,MLG
WRITE INTO FOO.PNT[PNT,MLG
EXIT
{exiting at 22:32  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ continued writing again at 22:32  2 Sept 1979}PHOTO FOO.PNT[PNT,MLG
A←3; B←567*2
EXIT
{exiting at 22:33  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ continued writing again at 22:34  2 Sept 1979}PHOT FOO.PNT[PNT,MLG
PHOTO FOO.PNT[PNT,MLG
A←56;S←(3,4,5); PROCEDURE W (SCALAR K); K←A;
EXIT
{exiting at 22:34  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ continued writing again at 22:35  2 Sept 1979}PROCEDURE KJ(SCALAR M,N); BEGIN M←N*4;ZZ;END;
Z←23;PROCEDURE KJ(SCALAR M,N); BEGIN M←N*4;ZZ;END;
EXIT
{exiting at 22:37  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=32}
{ continued writing again at 22:38  2 Sept 1979}WRITE INTO FOOPNT[PNT,MLG
WRITE INTO FOO.PNT[PNT,MLG
EXIT
{exiting at 22:38  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=32}
{ WRITTEN BY POINTY AT 22:51  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
PHOTO FOO.PNT[PNT,MLG
PROCEDURE XX;
BEGIN SCALAR A,B; A←B;END
EXIT
{exiting at 22:52  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=24}
{ continued writing again at 22:53  2 Sept 1979}

A←56;
EVENT H,K
EXIT
{exiting at 22:53  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=24}
{ WRITTEN BY POINTY AT 22:57  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
PHOTO FOO.PNT[PNT,MLG];

A←1;
PHOTO FOO1.PNT[PNT,MLG];
B←67;VECTOR V;
PHOTO FOO.PNT[PNT,MLG]
DELETE B;
EXIT
{exiting at 22:59  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ continued writing again at 22:59  2 Sept 1979}

SCALAR I;FOR I←2 STEP 3 UNTIL 10 DO A←I;
EXIT
{exiting at 23:00  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=36}
{ WRITTEN BY POINTY AT 23:02  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
NODISPLAY
A←2;B←(4,5,6)
WRITE FOO.PNT[PNT,MLG
WRITE INTO FOO.PNT[PNT,MLG
PHOTO FOO.PNT[PNT,MLG
EXIT
{exiting at 23:08  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 23:14  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
PHOTO FOO.PNT[PNT,MLG]
EXIT
{exiting at 23:14  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 23:17  2 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN = MLG USERNAME = Hamid}
EXIT
{exiting at 23:23  2 Sept 1979
	$FPMAX=0
	$INTMAX=0
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 15:42  4 Sept 1979 for ALIAS PPN = MSM
 LOGIN PPN = MSM USERNAME = Shahid}
W←3
EXIT
{exiting at 15:42  4 Sept 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 16:08  4 Sept 1979 for ALIAS PPN =  HN
 LOGIN PPN =  HN USERNAME = Hamid}
READ P1
DIPLAY SCALARS
DIPLAY SCALAR
DISPLAY SCALAR
REDISPLAY
READ P1
A←7
{ WRITTEN BY POINTY AT 18:43  4 Sept 1979 for ALIAS PPN =  HE
 LOGIN PPN = MSM USERNAME = Shahid}
A←56;B←A*(78+SIN(A));
EDIT B
PHOTO FOO.PNT[PNT,MLG]
NODISPLAY
PROCEDURE XX(SCALAR I);BEGIN A←I;END
DISPLAY PROCEDURE
SHOW XX
REDISPLAY
V←(4,5,6)
DEFINE ZZ =⊂PRINT("OK");⊃
EEDIT ZZ
{ continued writing again at 18:51  4 Sept 1979}
 REDEFINE ZZ = ⊂PRINT("OK-DONE");⊃;
ZZ
EDIT ZZ
REDEFINE ZZ = ⊂PRINT("OK-DONE");⊃;
XX
;
XX(4);
EDIT XX
EEDIT XX
DISPLAY EVENT
DISPLAY CONDITION MONITOR
DISPLAY PROCEDURES
DISPLAY PROCEDURE
XX(A);
EVENT E
DISPLAY EVENT
DISPLAY PROCEDURE
DELETE A
XX(5);
SHOW A
DISPLAY SCALAR
WRITE XX INTO FOO1.PNT[PNT,MLG]
A←45
XX(6);
C←6
EDIT A
PROCEDURE XXX (SCALAR I); A←I;
XXX(6);
EDIT A
DELETE A;
XXX(89);
SCALAR PROCEDURE K(I); RETURN(I*2);
SCALAR PROCEDURE K(SCALAR I); RETURN(I*2);
DISPLAY SCALAR
DISPLAY SCALARS
DISPLAY SCALAR
A←78
DISPLAY SCALAR
PRINT("UFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT("UFFAUFFA");
PRINT ("
 OK");
EXIT
{exiting at 19:20  4 Sept 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 19:22  4 Sept 1979 for ALIAS PPN =  HE
 LOGIN PPN = MSM USERNAME = Shahid}
NODISPLAY
DISPALY SCALAR
DISPLAY SCALAR
DISPLAY EVENT
DISPLAY MACRO
DISPLAY CONDITION_MONITOR
DISPLAY PROCEDURE
PROCEDURE HAND(SCALAR I); I←BHAND;
DISPLAY PROCEDURE
DEFINE ZZ =⊂AA←5⊃;
EEDIT ZZ
{ continued writing again at 19:25  4 Sept 1979}
HAND(F);
SCALAR F;HAND(F);
DISPLAY SCALAR
DISPLAY SCALAR
DISPLAY SCALARS
HAND(F);
DISPLAY SCALARS
EDIT F
SETSTATUS(PPCODE);
PROCEDURE HHAND(SCALAR I); I←BHAND
SCALAR H;
HHAND(H)
REDISPALY
;
REDISPLAY
K←BHAND
EXIT
{exiting at 19:30  4 Sept 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 19:31  4 Sept 1979 for ALIAS PPN =  HE
 LOGIN PPN = MSM USERNAME = Shahid}
←6
A←6
PROCEDURE XX(SCALAR I); I←BHAND;
XX(A)
EDIT A
DISPLAY SCALAR
DISPLAY SCALAR
DISPLAY SCALARS
REDISPLAY
V←(4,5,6)
DISPLAY VECTOR
DISPLAY SCALAR
DISPLAY FRAME
DISPLAY MACRO

DISPLAY EVENT
DISPLAY PROCEDURE
EXIT
{exiting at 19:34  4 Sept 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ WRITTEN BY POINTY AT 20:34  4 Sept 1979 for ALIAS PPN =  HE
 LOGIN PPN = MLG USERNAME = Maria}
A←1
PROCEDURE XX;A←6
X
;
XX
EDIT A
PRINT("HELLO")
EXIT
{exiting at 20:35  4 Sept 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}
{ continued writing again at 20:35  4 Sept 1979}
DISPLAY SSCALAR
DISPLAY SCALAR
DISPLAY PROCEDURE
SHOW XX
DISPLAY XX
DISPLAY BARM
SHOW BARM
DISPLAY FRAME
DISPLAY PROCEDURE
EXIT
{exiting at 20:36  4 Sept 1979
	$FPMAX=6
	$INTMAX=5
	$PCDMAX=23}